﻿Public Class RichTextEditExtForm
    Implements IDisposable

    ''' <summary>
    ''' Expose the HTMLText Property 
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Overloads Property HTMLText() As String
        Get
            Return Me.RichTextEditExtCtrl1.HTMLText
        End Get
        Set(ByVal value As String)
            Me.RichTextEditExtCtrl1.HTMLText = value
        End Set
    End Property
    ''' <summary>
    ''' Expose the RTFText Property 
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Overloads Property RTFText() As String
        Get
            Return Me.RichTextEditExtCtrl1.RTFText
        End Get
        Set(ByVal value As String)
            Me.RichTextEditExtCtrl1.RTFText = value
        End Set
    End Property

    'Private Sub RichTextEditExtForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    '    Dim dispo As IDisposable
    '    Dim form As XtraForm = CType(sender, XtraForm)


    '    ''TestPoint: By design we call dispose on each control that have the dispose Method
    '    For Each o As Object In form.Controls


    '        '
    '        dispo = TryCast(o, IDisposable)
    '        If dispo IsNot Nothing Then
    '            dispo.Dispose()
    '        End If
    '    Next



    '    RemoveHandler Form.FormClosing, AddressOf RichTextEditExtForm_FormClosing
    '    form.Controls.Clear()
    '    Form.Dispose()


    'End Sub
End Class